﻿using System;
using System.Collections.Generic;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using Common;
using Taobao.Top.Api;
using Taobao.Top.Api.Request;
using Taobao.Top.Api.Domain;
using System.Net;
using System.Text;
using System.IO;
using System.Security.Cryptography;
using System.Text.RegularExpressions;
using System.Xml;

public partial class top_crm_freecardsend : System.Web.UI.Page
{
    public string couponstr = string.Empty;
    public string session = string.Empty;
    public string nick = string.Empty;
    public string itemid = string.Empty;
    public string mindate = string.Empty;
    public string maxdate = string.Empty;
    public string itemstr = string.Empty;
    public string isfree = string.Empty;
    public string iscoupon = string.Empty;
    public string issendmsg = string.Empty;
    public string iskefu = string.Empty;

    public string typ = string.Empty;

    public string count1 = string.Empty;
    public string count2 = string.Empty;
    public string count3 = string.Empty;
    public string count4 = string.Empty;
    public string count5 = string.Empty;
    public string count6 = string.Empty;
    public string count7 = string.Empty;
    public string count8 = string.Empty;
    public string count9 = string.Empty;

    public string groupstr = string.Empty;

    protected void Page_Load(object sender, EventArgs e)
    {
        Common.Cookie cookie = new Common.Cookie();
        string taobaoNick = cookie.getCookie("nick");
        session = cookie.getCookie("top_sessiongroupbuy");
        string iscrm = cookie.getCookie("iscrm");
        Rijndael_ encode = new Rijndael_("tetesoft");
        nick = encode.Decrypt(taobaoNick);
        typ = utils.NewRequest("typ", utils.RequestType.QueryString);


        //过期判断
        if (string.IsNullOrEmpty(taobaoNick))
        {
            string msg = "尊敬的淘宝卖家，非常抱歉的告诉您，您还没有购买此服务或者登录信息已失效，如需继续使用请<a href='http://fuwu.taobao.com/serv/detail.htm?service_id=4545' target='_blank'>进入该服务</a>，谢谢！";
            Response.Redirect("buy.aspx?msg=" + HttpUtility.UrlEncode(msg));
            Response.End();
            return;
        }

        //过期判断
        if (!IsBuy(nick))
        {

            string msg = "尊敬的" + nick + "，非常抱歉的告诉您，只有VIP版本才能使用【客户关系营销】功能，如需继续使用请<a href='http://fuwu.taobao.com/ser/detail.htm?service_code=service-0-22904&frm=haoping' target='_blank'>购买高级会员服务</a>，谢谢！";
            Response.Redirect("buy.aspx?msg=" + HttpUtility.UrlEncode(msg));
            Response.End();
            return;
        }

        BindData();
    }

    /// <summary>
    /// 判断该用户是否订购了该服务
    /// </summary>
    /// <param name="nick"></param>
    /// <returns></returns>
    private bool IsBuy(string nick)
    {
        string sql = "SELECT plus FROM TCS_ShopSession WHERE nick = '" + nick + "'";
        DataTable dt = utils.ExecuteDataTable(sql);
        if (dt.Rows.Count != 0)
        {
            string plus = dt.Rows[0][0].ToString();
            if (plus.IndexOf("crm") != -1)
            {
                return true;
            }
            else
            {
                return false;
            }
        }
        else
        {
            return false;
        }
    }

    private void BindData()
    {
        //数据绑定
        DataTable dtCoupon = utils.ExecuteDataTable("SELECT * FROM TCS_FreeCardAction WHERE nick = '" + nick + "' AND isdel = 0 ORDER BY startdate DESC");

        if (dtCoupon.Rows.Count <= 0)
        {
            Response.Write("<script>alert('请先创建1张包邮卡才能可以给买家赠送！');window.location.href='../freecard/freecardadd.aspx'</script>");
            Response.End();
        }

        couponstr = "<select name='freecardid'>";
        for (int i = 0; i < dtCoupon.Rows.Count; i++)
        {
            couponstr += "<option value='" + dtCoupon.Rows[i]["guid"].ToString() + "'>" + dtCoupon.Rows[i]["name"].ToString() + " - 免费" + dtCoupon.Rows[i]["carddate"].ToString() + "月 限制" + dtCoupon.Rows[i]["usecount"].ToString() + "次</option>";
        }
        couponstr += "</select>";


        string sql = string.Empty;
        sql = "SELECT * FROM TCS_Group WHERE nick = '" + nick + "' AND isdel = 0";
        DataTable dt = utils.ExecuteDataTable(sql);

        string appkey = "12159997";
        string secret = "614e40bfdb96e9063031d1a9e56fbed5";

        IDictionary<string, string> param = new Dictionary<string, string>();
        param.Add("page_size", "100");
        param.Add("current_page", "1");

        string result = Post("http://gw.api.taobao.com/router/rest", appkey, secret, "taobao.crm.groups.get", session, param);
        Regex reg = new Regex(@"<group>([\s\S]*?)</group>", RegexOptions.IgnoreCase);
        MatchCollection match = reg.Matches(result);

        for (int i = 0; i < match.Count; i++)
        {
            string str = match[i].Groups[0].ToString();
            string groupid = GetValueByProperty(str, "group_id");
            string groupName = GetValueByProperty(str, "group_name");
            string groupCount = GetValueByProperty(str, "member_count");

            //如果数据库内有记录则显示
            for (int j = 0; j < dt.Rows.Count; j++)
            {
                if (groupid == dt.Rows[j]["taobaoid"].ToString())
                {
                    //row["price"] = dt.Rows[j]["price"];
                    //row["priceend"] = dt.Rows[j]["priceend"];
                    //row["arealist"] = InitAreaStr(dt.Rows[j]["arealist"].ToString());
                    //row["actdate"] = dt.Rows[j]["actdate"];
                    //row["actdateend"] = dt.Rows[j]["actdateend"];
                    groupstr += "<option value='" + groupid + "' title='" + groupCount + "'>" + groupName + "</option>";
                }
            }
        }
    }

    public static string GetValueByProperty(string str, string prop)
    {
        Regex reg = new Regex(@"<" + prop + @">([^<]*)</" + prop + @">", RegexOptions.IgnoreCase);
        if (reg.IsMatch(str))
        {
            return reg.Match(str).Groups[1].ToString();
        }
        else
        {
            return "";
        }
    }

    public bool IsBlack(string nick, string buynick)
    {
        string sql = "SELECT COUNT(*) FROM TCS_BlackListGift WHERE nick = '" + nick + "' AND buynick = '" + buynick + "'";
        string count = utils.ExecuteString(sql);
        if (count == "0")
        {
            return false;
        }
        else
        {
            return true;
        }
    }

    /// <summary>
    /// 保存设置
    /// </summary>
    /// <param name="sender"></param>
    /// <param name="e"></param>
    protected void Button1_Click(object sender, EventArgs e)
    {
        //执行优惠券赠送行为
        string sql = string.Empty;

        string buynick = "";// this.txtBuyerNick.Text;

        //获取淘宝优惠券ID
        string cardid = utils.NewRequest("freecardid", utils.RequestType.Form);
        sql = "SELECT * FROM TCS_FreeCardAction WHERE guid = '" + cardid + "'";

        string typ = utils.NewRequest("typ", utils.RequestType.Form);
        string condition = string.Empty;

        if (typ.Length > 10)
        {
            condition = " AND b.groupguid = '" + typ + "'";
        }

        int index = 0;
        int err = 0;
        string errtext = string.Empty;
        string usecountlimit = string.Empty;
        string carddate = string.Empty;

        sql = "SELECT * FROM TCS_FreeCardAction WHERE guid = '" + cardid + "'";
        DataTable dtFreecard = utils.ExecuteDataTable(sql);
        if (dtFreecard.Rows.Count != 0)
        {
            usecountlimit = dtFreecard.Rows[0]["usecount"].ToString();
            carddate = dtFreecard.Rows[0]["carddate"].ToString();
        }

        //获取淘宝会员信息
        string appkey = "12159997";
        string secret = "614e40bfdb96e9063031d1a9e56fbed5";
        string result = string.Empty;
        IDictionary<string, string> param = new Dictionary<string, string>();

        for (int i = 1; i < 9999; i++)
        {
            //获取买家分组信息
            param = new Dictionary<string, string>();
            param.Add("page_size", "100");
            param.Add("current_page", i.ToString());
            param.Add("relation_source", "1");
            param.Add("order", "lastest_time");
            param.Add("sort", "desc");
            if (typ == "1" || typ == "2" || typ == "3" || typ == "4")
            {
                param.Add("grade", typ);
            }
            else if (typ == "")
            {
                //所有会员
            }
            else
            {
                param.Add("group_id", typ);
            }

            try
            {
                result = Post("http://gw.api.taobao.com/router/rest", appkey, secret, "taobao.crm.members.search", session, param);
            }
            catch 
            {
                result = "";
            }

            Regex reg = new Regex(@"<crm_member>([\s\S]*?)</crm_member>", RegexOptions.IgnoreCase);
            MatchCollection match = reg.Matches(result);

            //如果没有了则退出
            if (match.Count == 0)
            {
                break;
            }
            //循环更新
            for (int j = 0; j < match.Count; j++)
            {
                try
                {
                    string strCus = match[j].Groups[0].ToString();
                    buynick = GetValueByProperty(strCus, "buyer_nick");

                    if (IsBlack(nick, buynick))
                    {
                        //黑名单 跳过继续
                        continue;
                    }

                    sql = "SELECT COUNT(*) FROM TCS_FreeCard WHERE nick = '" + nick + "' AND buynick = '" + buynick + "' AND isdel = 0";
                    string count = utils.ExecuteString(sql);
                    if (count != "0")
                    {
                        err++;
                        //Response.Write("<script>alert('不可对买家重复赠送包邮卡，如果需要修改买家包邮卡使用日期和限制请在赠送记录里面直接编辑买家的包邮卡');history.go(-1);</script>");
                        //Response.End();
                        //return;
                        continue;
                    }

                    string startdate = DateTime.Now.ToString();
                    string enddate = DateTime.Now.ToString();

                    if (carddate == "0")
                    {
                        enddate = DateTime.Now.AddMonths(999).ToString();
                    }
                    else
                    {
                        enddate = DateTime.Now.AddMonths(int.Parse(carddate)).ToString();
                    }

                    sql = "INSERT INTO TCS_FreeCard (nick,buynick,cardid,startdate,enddate,carddate,usecountlimit) VALUES ('" + nick + "', '" + buynick + "','" + cardid + "','" + startdate + "','" + enddate + "','" + carddate + "','" + usecountlimit + "')";
                    utils.ExecuteNonQuery(sql);

                    //增加免邮卡领取次数
                    sql = "UPDATE TCS_FreeCardAction SET sendcount = sendcount + 1 WHERE guid = '" + cardid + "'";
                    utils.ExecuteNonQuery(sql);

                    index++;
                }
                catch { }
            }
        }

        //param.Add("page_size", "12");
        //param.Add("current_page", pageNow.ToString());
        //param.Add("relation_source", "1");
        //param.Add("order", "lastest_time");
        //param.Add("sort", "desc");
        //string groupstr = Post("http://gw.api.taobao.com/router/rest", appkey, secret, "taobao.crm.groups.get", session, param);

        //sql = "SELECT * FROM TCS_Customer b WHERE b.nick = '" + nick + "' " + condition + "";
        //DataTable dt = utils.ExecuteDataTable(sql);
        //for (int i = 0; i < dt.Rows.Count; i++)
        //{
        //    buynick = dt.Rows[i]["buynick"].ToString();

        //    if (IsBlack(nick, buynick))
        //    {
        //        //黑名单 跳过继续
        //        continue;
        //    }

        //    sql = "SELECT COUNT(*) FROM TCS_FreeCard WHERE nick = '" + nick + "' AND buynick = '" + buynick + "' AND isdel = 0";
        //    string count = utils.ExecuteString(sql);
        //    if (count != "0")
        //    {
        //        err++;
        //        //Response.Write("<script>alert('不可对买家重复赠送包邮卡，如果需要修改买家包邮卡使用日期和限制请在赠送记录里面直接编辑买家的包邮卡');history.go(-1);</script>");
        //        //Response.End();
        //        //return;
        //        continue;
        //    }

        //    string startdate = DateTime.Now.ToString();
        //    string enddate = DateTime.Now.ToString();
            
        //    if (carddate == "0")
        //    {
        //        enddate = DateTime.Now.AddMonths(999).ToString();
        //    }
        //    else
        //    {
        //        enddate = DateTime.Now.AddMonths(int.Parse(carddate)).ToString();
        //    }

        //    sql = "INSERT INTO TCS_FreeCard (nick,buynick,cardid,startdate,enddate,carddate,usecountlimit) VALUES ('" + nick + "', '" + buynick + "','" + cardid + "','" + startdate + "','" + enddate + "','" + carddate + "','" + usecountlimit + "')";
        //    utils.ExecuteNonQuery(sql);

        //    //增加免邮卡领取次数
        //    sql = "UPDATE TCS_FreeCardAction SET sendcount = sendcount + 1 WHERE guid = '" + cardid + "'";
        //    utils.ExecuteNonQuery(sql);

        //    index++;
        //    //}
        //    //else
        //    //{
        //    //    err++;
        //    //}
        //}

        errtext = "买家已经拥有可使用的包邮卡，则不重复赠送！";

        if (err == 0)
        {
            Response.Write("<script>alert('赠送完毕，成功赠送" + index.ToString() + "张，失败" + err.ToString() + "张！');window.location.href='../freecard/freecardcustomer.aspx';</script>");
        }
        else
        {
            Response.Write("<script>alert('赠送完毕，成功赠送" + index.ToString() + "张，失败" + err.ToString() + "张，失败原因" + errtext + "！');window.location.href='../freecard/freecardcustomer.aspx';</script>");
        }
        Response.End();
    }



    #region TOP API
    /// <summary> 
    /// 给TOP请求签名 API v2.0 
    /// </summary> 
    /// <param name="parameters">所有字符型的TOP请求参数</param> 
    /// <param name="secret">签名密钥</param> 
    /// <returns>签名</returns> 
    protected static string CreateSign(IDictionary<string, string> parameters, string secret)
    {
        parameters.Remove("sign");
        IDictionary<string, string> sortedParams = new SortedDictionary<string, string>(parameters);
        IEnumerator<KeyValuePair<string, string>> dem = sortedParams.GetEnumerator();
        StringBuilder query = new StringBuilder(secret);
        while (dem.MoveNext())
        {
            string key = dem.Current.Key;
            string value = dem.Current.Value;
            if (!string.IsNullOrEmpty(key) && !string.IsNullOrEmpty(value))
            {
                query.Append(key).Append(value);
            }
        }
        query.Append(secret);
        MD5 md5 = MD5.Create();
        byte[] bytes = md5.ComputeHash(Encoding.UTF8.GetBytes(query.ToString()));
        StringBuilder result = new StringBuilder();
        for (int i = 0; i < bytes.Length; i++)
        {
            string hex = bytes[i].ToString("X");
            if (hex.Length == 1)
            {
                result.Append("0");
            }
            result.Append(hex);
        }
        return result.ToString();
    }
    /// <summary> 
    /// 组装普通文本请求参数。 
    /// </summary> 
    /// <param name="parameters">Key-Value形式请求参数字典</param> 
    /// <returns>URL编码后的请求数据</returns> 
    protected static string PostData(IDictionary<string, string> parameters)
    {
        StringBuilder postData = new StringBuilder();
        bool hasParam = false;
        IEnumerator<KeyValuePair<string, string>> dem = parameters.GetEnumerator();
        while (dem.MoveNext())
        {
            string name = dem.Current.Key;
            string value = dem.Current.Value;
            // 忽略参数名或参数值为空的参数 
            if (!string.IsNullOrEmpty(name) && !string.IsNullOrEmpty(value))
            {
                if (hasParam)
                {
                    postData.Append("&");
                }
                postData.Append(name);
                postData.Append("=");
                postData.Append(Uri.EscapeDataString(value));
                hasParam = true;
            }
        }
        return postData.ToString();
    }
    /// <summary> 
    /// TOP API POST 请求 
    /// </summary> 
    /// <param name="url">请求容器URL</param> 
    /// <param name="appkey">AppKey</param> 
    /// <param name="appSecret">AppSecret</param> 
    /// <param name="method">API接口方法名</param> 
    /// <param name="session">调用私有的sessionkey</param> 
    /// <param name="param">请求参数</param> 
    /// <returns>返回字符串</returns> 
    public static string Post(string url, string appkey, string appSecret, string method, string session,
    IDictionary<string, string> param)
    {
        #region -----API系统参数----
        param.Add("app_key", appkey);
        param.Add("method", method);
        param.Add("session", session);
        param.Add("timestamp", DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss"));
        param.Add("format", "xml");
        param.Add("v", "2.0");
        param.Add("sign_method", "md5");
        param.Add("sign", CreateSign(param, appSecret));
        #endregion
        string result = string.Empty;
        #region ---- 完成 HTTP POST 请求----
        HttpWebRequest req = (HttpWebRequest)WebRequest.Create(url);
        req.Method = "POST";
        req.KeepAlive = true;
        req.Timeout = 300000;
        req.ContentType = "application/x-www-form-urlencoded;charset=gb2312";
        byte[] postData = Encoding.UTF8.GetBytes(PostData(param));
        Stream reqStream = req.GetRequestStream();
        reqStream.Write(postData, 0, postData.Length);
        reqStream.Close();
        HttpWebResponse rsp = (HttpWebResponse)req.GetResponse();
        Encoding encoding = Encoding.GetEncoding(rsp.CharacterSet);
        Stream stream = null;
        StreamReader reader = null;
        stream = rsp.GetResponseStream();
        reader = new StreamReader(stream, encoding);
        result = reader.ReadToEnd();
        if (reader != null) reader.Close();
        if (stream != null) stream.Close();
        if (rsp != null) rsp.Close();
        #endregion
        return Regex.Replace(result, @"[\x00-\x08\x0b-\x0c\x0e-\x1f]", "");
    }
    #endregion
}